home *** CD-ROM | disk | FTP | other *** search
/ Digital Photo Album: Houko Kuwashima / Digital Photo Album: Houko Kuwashima.iso / photo_2.dxr / 00010.ls < prev    next >
Encoding:
Text File  |  1998-10-08  |  4.6 KB  |  109 lines
  1. global zoomfg, zoomlevel, photosprite, frameworksprite, frameworksprite2, originalwidth, originalheight, startloch, startlocv
  2.  
  3. on photozoom photonum
  4.   puppetSound(1, "C_view.aif")
  5.   set photosprite to 35
  6.   set frameworksprite to 36
  7.   set frameworksprite2 to 37
  8.   set currentsprite to 9 + photonum
  9.   if photonum < 10 then
  10.     set photonumstring to "0" & photonum
  11.   else
  12.     set photonumstring to photonum
  13.   end if
  14.   if the frame = 6 then
  15.     set photocast to "01_" & photonumstring & ".PIC"
  16.   else
  17.     if the frame = 11 then
  18.       set photocast to "02_" & photonumstring & ".PIC"
  19.     else
  20.       if the frame = 16 then
  21.         set photocast to "03_" & photonumstring & ".PIC"
  22.       else
  23.         if the frame = 21 then
  24.           set photocast to "04_" & photonumstring & ".PIC"
  25.         else
  26.           if the frame = 26 then
  27.             set photocast to "05_" & photonumstring & ".PIC"
  28.           end if
  29.         end if
  30.       end if
  31.     end if
  32.   end if
  33.   puppetSprite(photosprite, 1)
  34.   puppetSprite(frameworksprite, 1)
  35.   puppetSprite(frameworksprite2, 1)
  36.   set the castNum of sprite photosprite to member photocast
  37.   set the stretch of sprite photosprite to 1
  38.   set the stretch of sprite frameworksprite to 1
  39.   set the stretch of sprite frameworksprite2 to 1
  40.   set originalwidth to the width of member photocast
  41.   set originalheight to the height of member photocast
  42.   set the width of sprite photosprite to originalwidth * 25 / 100
  43.   set the height of sprite photosprite to originalheight * 25 / 100
  44.   set the width of sprite frameworksprite to originalwidth * 25 / 100
  45.   set the height of sprite frameworksprite to originalheight * 25 / 100
  46.   set the width of sprite frameworksprite2 to originalwidth * 25 / 100
  47.   set the height of sprite frameworksprite2 to originalheight * 25 / 100
  48.   if originalwidth < originalheight then
  49.     set startloch to the locH of sprite currentsprite + 35
  50.     set startlocv to the locV of sprite currentsprite + 50
  51.     set the locH of sprite photosprite to startloch
  52.     set the locV of sprite photosprite to startlocv
  53.     set the locH of sprite frameworksprite to startloch
  54.     set the locV of sprite frameworksprite to startlocv
  55.     set the locH of sprite frameworksprite2 to startloch
  56.     set the locV of sprite frameworksprite2 to startlocv
  57.   else
  58.     set startloch to the locH of sprite currentsprite + 50
  59.     set startlocv to the locV of sprite currentsprite + 35
  60.     set the locH of sprite photosprite to startloch
  61.     set the locV of sprite photosprite to startlocv
  62.     set the locH of sprite frameworksprite to startloch
  63.     set the locV of sprite frameworksprite to startlocv
  64.     set the locH of sprite frameworksprite2 to startloch
  65.     set the locV of sprite frameworksprite2 to startlocv
  66.   end if
  67.   set masksprite to 31
  68.   puppetSprite(masksprite, 1)
  69.   set the stretch of sprite masksprite to 1
  70.   set the width of sprite masksprite to the width of sprite currentsprite
  71.   set the height of sprite masksprite to the height of sprite currentsprite
  72.   set the loc of sprite masksprite to the loc of sprite currentsprite
  73.   set the visible of sprite masksprite to 1
  74.   set zoomlevel to 1
  75.   set zoomfg to 1
  76.   updateStage()
  77.   makevisible()
  78.   repeat while zoomlevel < 6
  79.     photomoving()
  80.     updateStage()
  81.     set zoomlevel to zoomlevel + 1
  82.     if zoomlevel = 4 then
  83.       set the visible of sprite frameworksprite2 to 1
  84.     end if
  85.   end repeat
  86.   cursor(-1)
  87.   go(#next)
  88. end
  89.  
  90. on makevisible
  91.   set the visible of sprite photosprite to 1
  92.   set the visible of sprite frameworksprite to 1
  93. end
  94.  
  95. on photomoving
  96.   set the width of sprite photosprite to originalwidth * ((zoomlevel * 15) + 25) / 100
  97.   set the height of sprite photosprite to originalheight * ((zoomlevel * 15) + 25) / 100
  98.   set the width of sprite frameworksprite to originalwidth * ((zoomlevel * 15) + 25) / 100
  99.   set the height of sprite frameworksprite to originalheight * ((zoomlevel * 15) + 25) / 100
  100.   set the width of sprite frameworksprite2 to the width of sprite frameworksprite
  101.   set the height of sprite frameworksprite2 to the height of sprite frameworksprite
  102.   set the locH of sprite photosprite to the locH of sprite photosprite + ((320 - startloch) / 5)
  103.   set the locV of sprite photosprite to the locV of sprite photosprite + ((240 - startlocv) / 5)
  104.   set the locH of sprite frameworksprite to the locH of sprite frameworksprite + ((320 - startloch) / 5)
  105.   set the locV of sprite frameworksprite to the locV of sprite frameworksprite + ((240 - startlocv) / 5)
  106.   set the locH of sprite frameworksprite2 to the locH of sprite frameworksprite2 + ((320 - startloch) / 5)
  107.   set the locV of sprite frameworksprite2 to the locV of sprite frameworksprite2 + ((240 - startlocv) / 5)
  108. end
  109.